home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / pc / l_parser / lparser3.exe / PASSIE.LS < prev    next >
Text File  |  1994-01-22  |  2KB  |  51 lines
  1. # --- Passie.ls  C.J.van der Mark jr.--------------------------
  2. #
  3. 10                        # recursion
  4. 20                          # angle
  5. 20                          # thickness
  6. #
  7. #---------------------------------------- axioms
  8. #o                                # the flower
  9. #L                                # a single leaf
  10. #&(60)C                           # the middle stem of the plant
  11. #k                                # middle flower branch
  12. #b                                # the side branches of the plant, with flower
  13. k"b>(55)"b>(60)'b>(65)b>(55)''b>(80)b   # the whole passieflora like plant
  14. #
  15. #---------------------------------------- rules
  16. b=['Ao]
  17. k=[''''C^(90)o]
  18. A=$t(.2)F''[+(55)$L][-(55)$L]t(-.1)FA
  19. C=$F'[+(55)$L][-(55)$L]FC
  20. #
  21. #
  22. #----------------------------------------Plant Leaf
  23. L=F&(30)&(10)cc[D][E]
  24. D=[+D{.].X.}
  25. E=[^(5)-E{.].X.}
  26. X=^(5)ggggX
  27. #
  28. #----------------------------------------Flower leaf
  29. d=[+d{.].x.}
  30. h=[-h{.].x.}
  31. x=gggx
  32. #
  33. #----------------------------------------Whole flower
  34. o=[&!ce>(90)w>(90)w>(90)w>(90)w>vy>vy>vy>vy>vy>vy>vy>vy>vy>yv>vy>vy>vy>vy>vy>vy>vy>vy]
  35. #----------------------------------------Flower stem
  36. e=Z
  37. #----------------------------------------Spikes in the flower
  38. v=[ZZc"""""&(90){'''F!!''F!!''F!!''F}]
  39. #----------------------------------------Flower female stem and male stems
  40. w=[[sc??c'!!Ft(-.1)F<<''''!!^^^s]&(100)'(0.5)ZZZ[d][h]]
  41. #----------------------------------------Colored flower leafs
  42. y=[[ZZcccc&(80)'''{-ff+ff|-ff+ff}][ZZccccc&(60)'''{-f+f|-f+f}][ZZcccccc&(35)''''{-f+f|-f+f}]]
  43. #----------------------------------------Singel male/female stem
  44. s=[c^(8)!Ft(-.2)Ft(-.2)Ft(-.2)Fu]
  45. #----------------------------------------Pollen holder on male stem
  46. u=[???F]
  47. #
  48. F='(1.3)F'(.77)
  49. f='(1.3)f'(.77)
  50. @
  51.